home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #2 / Floppy_Magazine_88-2_1988_Megasystems_Oy_fi_Side_A.d64 / treasures2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  293 lines
  1. 0 ifa=0thena=1:load" treasures3",8,1
  2. 1 poke53281,8:poke53280,8
  3. 2 print"[147][196][213][206][199][197][207][206][211]"
  4. 3 print"&"
  5. 4 print"[196][210][193][199][207][206][211]"
  6. 5 print"[158][194]y [212]he [194]alron"
  7. 6 print"[144][163][163][183][183][184][184][184][184][184][184][184][183][183][163][163]"
  8. 7 print"[158]1.[200]its"
  9. 8 print"2.[206]ames"
  10. 9 print"3.[205]isc.[205]agic [215]eapons"
  11. 10 print"4.[205]ain [205]enu"
  12. 11 sys49152
  13. 12 geta$:ifa$=""then12
  14. 13 ifa$="1"then18
  15. 14 ifa$="2"then79
  16. 15 ifa$="3"then185
  17. 16 ifa$="4"then289
  18. 17 ifa$<>"1"anda$<>"2"anda$<>"3"anda$<>"4"then12
  19. 18 clr
  20. 19 a$(1)="[204]eft leg":a$(2)="[210]ight leg":b$(1)="[204]eft side":d$(1)="[198]ace":d$(2)="[206]eck
  21. 20 b$(2)[178]"(NULL)ight side":c$(1)[178]"(NULL)eft arm":c$(2)[178]"(NULL)ight arm":e$(1)[178]"(NULL)eft fingers"
  22. 21 e$(2)[178]"(NULL)ight fingers"
  23. 22 [151]53281,15:[151]53280,15
  24. 23 v[178]53248:[153]"loadstop"
  25. 24 [151]v[170]23,63
  26. 25 [151]v[170]21,63
  27. 26 [151]v,150:[151]v[170]1,100:[151]v[170]39,11
  28. 27 [151]v[170]2,150:[151]v[170]3,140:[151]v[170]40,00
  29. 28 [151]v[170]4,150:[151]v[170]5,104:[151]v[170]41,12
  30. 29 [151]v[170]6,150:[151]v[170]7,140:[151]v[170]42,10
  31. 30 [151]v[170]8,150:[151]v[170]9,100:[151]v[170]43,11
  32. 31 [151]v[170]10,150:[151]v[170]11,100:[151]v[170]44,10
  33. 32 [151]2040,192:[151]2041,193:[151]2042,194:[151]2043,195:[151]2044,196:[151]2045,197
  34. 33 [153]"str$oes the character have a helmet (y/n)"
  35. 34 [161]a$:[139]a$[178]""[167]34
  36. 35 [139]a$[178]"y"[167]he[178]1:[137]40
  37. 36 [139]a$[178]"n"[167]he[178]0:[137]39
  38. 37 [139]a$[179][177]"y"[175]a$[179][177]"n"[167]34
  39. 38 [128]
  40. 39 [151]2044,198:[151]2045,199:[151]v[170]43,10:[151]v[170]44,9
  41. 40 [143]
  42. 41 [143] ** dicing **
  43. 42 [153]"str$o you want to throw a hit roll (y/n)"
  44. 43 [161]a$:[139]a$[178]""[167]43
  45. 44 [139]a$[178]"y"[167]48
  46. 45 [139]a$[178]"n"[167]52
  47. 46 [139]a$[179][177]"y"[175]a$[179][177]"n"[167]43
  48. 47 [128]
  49. 48 x[178][181](20[172][187](ti)[170]1)
  50. 49 [153]"load"
  51. 50 [153]"left$it roll = "x
  52. 51 [137]57
  53. 52 [133]"left$it roll";x
  54. 53 [139]x[179]1[176]x[177]20[167]52
  55. 54 [153]"left$it roll = "x
  56. 55 [153]"load"
  57. 56 [153]"left$it roll = "x
  58. 57 [139]x[178]1[167][153]"you hit your weapon on the ground"
  59. 58 [139]x[178]2[167][153]"if you hit then victim takes 1/3 damage":[151]v[170]42,1
  60. 59 [139]x[178][177]3[175]x[179][178]9[167][153]"if you hit then victim takes 1/2 damage":[151]v[170]40,1
  61. 60 [139]x[178][177]10[175]x[179][178]14[167][153]"if you hit then victim takes full damage":[151]v[170]41,1
  62. 61 [139]x[178][177]15[175]x[179][178]18[167][153]"if you hit then victim takes full damage":[151]v[170]39,1
  63. 62 [139]he[178]0[167][139]x[178]19[167][153]"if you hit then double the damage":[151]v[170]43,1
  64. 63 [139]he[178]0[167][139]x[178]20[167][153]"if you hit then triple the damage":[151]v[170]43,1
  65. 64 [139]he[178]1[167][139]x[178]19[167][153]"the helmet stops your swing":[151]v[170]43,1
  66. 65 [139]he[178]1[167][139]x[178]20[167][153]"your weapon pierces helmet:2 * damage":[151]v[170]44,1
  67. 66 y[178][181](2[172][187](ti)[170]1)
  68. 67 [139]x[178]2[167][153]"str$amage to ";e$(y)
  69. 68 [139]x[178][177]3[175]x[179][178]9[167][153]"str$amage to ";a$(y)
  70. 69 [139]x[178][177]10[175]x[179][178]14[167][153]"str$amage to ";c$(y)
  71. 70 [139]x[178][177]15[175]x[179][178]18[167][153]"str$amage to ";b$(y)
  72. 71 [139]he[178]0[167][139]x[178][177]19[175]x[179][178]20[167][153]"str$amage to ";d$(y)
  73. 72 [139]he[178]1[175]x[178]19[167][153]"1/4 damage"
  74. 73 [139]he[178]1[167][139]x[178]20[167][153]"str$amage to face"
  75. 74 [153]"(NULL)ew victim (y/n)"
  76. 75 [161]a$:[139]a$[178]""[167]75
  77. 76 [139]a$[178]"y"[167]22
  78. 77 [139]a$[178]"n"[167][151]v[170]21,0:[137]1
  79. 78 [139]a$[179][177]"y"[175]a$[179][177]"n"[167]75
  80. 79 [156]:[153]"load(NULL)ame of man/woman: ";
  81. 80 x[178][181](100[172][187](ti)[170]1)
  82. 81 [139]x[178]1[167][153]"peekoromir"
  83. 82 [139]x[178]2[167][153]"(NULL)gluk"
  84. 83 [139]x[178]3[167][153]"(NULL)aruman"
  85. 84 [139]x[178]4[167][153]"chr$rishnakh"
  86. 85 [139]x[178]5[167][153]"(NULL)egolas"
  87. 86 [139]x[178]6[167][153]"chr$imli"
  88. 87 [139]x[178]7[167][153]"chr$loin"
  89. 88 [139]x[178]8[167][153]"ascaramir"
  90. 89 [139]x[178]9[167][153]"chr$andalf"
  91. 90 [139]x[178]10[167][153]"ascangorn"
  92. 91 [139]x[178]11[167][153]"chr$waihir (NULL)uuliruhtinas"
  93. 92 [139]x[178]12[167][153]"chr$aladriel"
  94. 93 [139]x[178]13[167][153]"left$asufel"
  95. 94 [139]x[178]14[167][153]"atnrod"
  96. 95 [139]x[178]15[167][153]"(NULL)heoden"
  97. 96 [139]x[178]16[167][153]"leneleborn"
  98. 97 [139]x[178]17[167][153]"left$ama"
  99. 98 [139]x[178]18[167][153]"chr$rima"
  100. 99 [139]x[178]19[167][153]"valowyn"
  101. 100 [139]x[178]20[167][153]"valomer"
  102. 101 [139]x[178]21[167][153]"(NULL)amwise"
  103. 102 [139]x[178]22[167][153]"(NULL)meagol"
  104. 103 [139]x[178]23[167][153]"(NULL)eriadoc"
  105. 104 [139]x[178]24[167][153]"(NULL)eregrin"
  106. 105 [139]x[178]25[167][153]"lenreol"
  107. 106 [139]x[178]26[167][153]"valdoras"
  108. 107 [139]x[178]27[167][153]"left$elm vasarakoura"
  109. 108 [139]x[178]28[167][153]"chr$arald the blue"
  110. 109 [139]x[178]29[167][153]"(NULL)ir (NULL)ufus ascorthright"
  111. 110 [139]x[178]30[167][153]"vallizabeth ascorthright"
  112. 111 [139]x[178]31[167][153]"(NULL)ir left$ugh (NULL)ritchard"
  113. 112 [139]x[178]32[167][153]"(NULL)ir str$analane"
  114. 113 [139]x[178]33[167][153]"(NULL)other str$arkness"
  115. 114 [139]x[178]34[167][153]"mid$avya str$aystar"
  116. 115 [139]x[178]35[167][153]"asclip"
  117. 116 [139]x[178]36[167][153]"atnzos chr$reathand"
  118. 117 [139]x[178]37[167][153]"(NULL)sogga (NULL)arsh"
  119. 118 [139]x[178]38[167][153]"atnllycia"
  120. 119 [139]x[178]39[167][153]"(NULL)cud the right$nvicible"
  121. 120 [139]x[178]40[167][153]"(NULL)narf"
  122. 121 [139]x[178]41[167][153]"(NULL)elerie"
  123. 122 [139]x[178]42[167][153]"(NULL)olmer"
  124. 123 [139]x[178]43[167][153]"peekrufus"
  125. 124 [139]x[178]44[167][153]"(NULL)r peek.peek.peekird"
  126. 125 [139]x[178]45[167][153]"(NULL)uthaze"
  127. 126 [139]x[178]46[167][153]"chr$ruumsh"
  128. 127 [139]x[178]47[167][153]"chr$il-galad"
  129. 128 [139]x[178]48[167][153]"(NULL)hargaas"
  130. 129 [139]x[178]49[167][153]"right$lneval"
  131. 130 [139]x[178]50[167][153]"(NULL)hor"
  132. 131 [139]x[178]51[167][153]"(NULL)hengel"
  133. 132 [139]x[178]52[167][153]"(NULL)ungo"
  134. 133 [139]x[178]53[167][153]"(NULL)inda"
  135. 134 [139]x[178]54[167][153]"ascalco"
  136. 135 [139]x[178]55[167][153]"(NULL)argo"
  137. 136 [139]x[178]56[167][153]"chr$riffo peekoffin"
  138. 137 [139]x[178]57[167][153]"(NULL)otho"
  139. 138 [139]x[178]58[167][153]"ascilibert peekolger"
  140. 139 [139]x[178]59[167][153]"(NULL)ancho"
  141. 140 [139]x[178]60[167][153]"str$rogo"
  142. 141 [139]x[178]61[167][153]"str$udo"
  143. 142 [139]x[178]62[167][153]"peekandobras"
  144. 143 [139]x[178]63[167][153]"right$sengrim"
  145. 144 [139]x[178]64[167][153]"peekilbo peekaggins"
  146. 145 [139]x[178]65[167][153]"ascerumbras"
  147. 146 [139]x[178]66[167][153]"ascortinbras"
  148. 147 [139]x[178]67[167][153]"right$sengar"
  149. 148 [139]x[178]68[167][153]"str$urin"
  150. 149 [139]x[178]69[167][153]"(NULL)hrain"
  151. 150 [139]x[178]70[167][153]"peekorin"
  152. 151 [139]x[178]71[167][153]"str$ain right$right$ (NULL)autajalka"
  153. 152 [139]x[178]72[167][153]"chr$ror"
  154. 153 [139]x[178]73[167][153]"ascarin"
  155. 154 [139]x[178]74[167][153]"(NULL)hror"
  156. 155 [139]x[178]75[167][153]"(NULL)auron"
  157. 156 [139]x[178]76[167][153]"(NULL)yarg"
  158. 157 [139]x[178]77[167][153]"(NULL)rbid"
  159. 158 [139]x[178]78[167][153]"(NULL)pikk"
  160. 159 [139]x[178]79[167][153]"left$urt"
  161. 160 [139]x[178]80[167][153]"str$arket"
  162. 161 [139]x[178]81[167][153]"atnngok"
  163. 162 [139]x[178]82[167][153]"(NULL)lyss"
  164. 163 [139]x[178]83[167][153]"chr$orb"
  165. 164 [139]x[178]84[167][153]"(NULL)amig"
  166. 165 [139]x[178]85[167][153]"(NULL)inge"
  167. 166 [139]x[178]86[167][153]"(NULL)anglit"
  168. 167 [139]x[178]87[167][153]"ascletch"
  169. 168 [139]x[178]88[167][153]"(NULL)rrik peekloodbasher"
  170. 169 [139]x[178]89[167][153]"str$iglad (NULL)anmincer"
  171. 170 [139]x[178]90[167][153]"(NULL)algrunt (NULL)pearcrest"
  172. 171 [139]x[178]91[167][153]"(NULL)icbloc (NULL)itchstaff"
  173. 172 [139]x[178]92[167][153]"valddric str$warfcutter"
  174. 173 [139]x[178]93[167][153]"peekicdig (NULL)iveripper"
  175. 174 [139]x[178]94[167][153]"str$irksod str$warfhater"
  176. 175 [139]x[178]95[167][153]"(NULL)andic vallfsickle"
  177. 176 [139]x[178]96[167][153]"aschlassa (NULL)ay"
  178. 177 [139]x[178]97[167][153]"vallminster (NULL)elokas"
  179. 178 [139]x[178]98[167][153]"(NULL)elazzar"
  180. 179 [139]x[178]99[167][153]"(NULL)ithanalor"
  181. 180 [139]x[178]100[167][153]"(NULL)adagast the peekrown"
  182. 181 [161]a$:[139]a$[178]""[167]181
  183. 182 [139]a$[178][199](32)[167]79
  184. 183 [139]a$[178][199](13)[167]1
  185. 184 [139]a$[179][177][199](13)[175]a$[179][177][199](32)[167]181
  186. 185 [156]:[153]"load":[141]288
  187. 186 [139]x[179][178]9[167][153]"battle axe";:wc[178]3
  188. 187 [139]x[178][177]10[175]x[179][178]15[167][153]"hand axe";:wc[178]2
  189. 188 [139]x[178][177]16[175]x[179][178]17[167][153]"hand axe returning";:wc[178]2
  190. 189 [139]x[178][177]18[175]x[179][178]20[167][153]"blackjack";:wc[178]3
  191. 190 [139]x[178][177]21[175]x[179][178]22[167][153]"bola";:wc[178]2
  192. 191 [139]x[178]23[167][153]"bola returning";:wc[178]2
  193. 192 [139]x[178][177]24[175]x[179][178]28[167][153]"club";:wc[178]3
  194. 193 [139]x[178][177]29[175]x[179][178]40[167][153]"dagger";:wc[178]2
  195. 194 [139]x[178][177]41[175]x[179][178]43[167][153]"dagger returning";:wc[178]2
  196. 195 [139]x[178][177]44[175]x[179][178]46[167][153]"javelin";:wc[178]2
  197. 196 [139]x[178]47[167][153]"javelin returning";:wc[178]2
  198. 197 [139]x[178][177]48[175]x[179][178]51[167][153]"lance";:wc[178]4
  199. 198 [139]x[178][177]52[175]x[179][178]63[167][153]"mace";:wc[178]3
  200. 199 [139]x[178][177]64[175]x[179][178]65[167][153]"net";:wc[178]2
  201. 200 [139]x[178]66[167][153]"net returning";:wc[178]2
  202. 201 [139]x[178][177]67[175]x[179][178]71[167][153]"pole arm";:wc[178]4
  203. 202 [139]x[178][177]72[175]x[179][178]81[167][153]"spear or trident";:wc[178]2
  204. 203 [139]x[178][177]82[175]x[179][178]84[167][153]"spear or trident returning";:wc[178]2
  205. 204 [139]x[178][177]85[175]x[179][178]94[167][153]"war hammer";:wc[178]3
  206. 205 [139]x[178][177]95[175]x[179][178]97[167][153]"war hammer returning";:wc[178]3
  207. 206 [139]x[178][177]98[175]x[179][178]100[167][153]"whip";:wc[178]3
  208. 207 [143] *******
  209. 208 [139]wc[179][177]2[167]216
  210. 209 [141]288
  211. 210 [139]x[179][178]50[167][153]"+1";:cb[178]40
  212. 211 [139]x[178][177]51[175]x[179][178]74[167][153]"+2";:cb[178]30
  213. 212 [139]x[178][177]75[175]x[179][178]88[167][153]"+3";:cb[178]20
  214. 213 [139]x[178][177]89[175]x[179][178]96[167][153]"+4";:cb[178]15
  215. 214 [139]x[178][177]97[175]x[179][178]100[167][153]"+5";:cb[178]10
  216. 215 [137]232
  217. 216 [143] *******
  218. 217 [139]wc[179][177]3[167]225
  219. 218 [141]288
  220. 219 [139]x[179][178]60[167][153]"+1";:cb[178]40
  221. 220 [139]x[178][177]61[175]x[179][178]81[167][153]"+2";:cb[178]30
  222. 221 [139]x[178][177]82[175]x[179][178]92[167][153]"+3";:cb[178]20
  223. 222 [139]x[178][177]93[175]x[179][178]98[167][153]"+4";:cb[178]15
  224. 223 [139]x[178][177]99[175]x[179][178]100[167][153]"+5";:cb[178]10
  225. 224 [137]232
  226. 225 [143] *******
  227. 226 [141]288
  228. 227 [139]x[179][178]70[167][153]"+1";:cb[178]40
  229. 228 [139]x[178][177]71[175]x[179][178]88[167][153]"+2";:cb[178]30
  230. 229 [139]x[178][177]89[175]x[179][178]96[167][153]"+3";:cb[178]20
  231. 230 [139]x[178][177]97[175]x[179][178]99[167][153]"+4";:cb[178]15
  232. 231 [139]x[178]100[167][153]"+5";:cb[178]10
  233. 232 [141]288
  234. 233 [139]x[177]cb[167]283
  235. 234 [139]cb[178]10[167]260
  236. 235 [143] *********
  237. 236 s[178][181](100[172][187](ti)[170]1)
  238. 237 [139]s[179][178]29[167][153]"+1 vs.";
  239. 238 [139]s[178][177]30[175]s[179][178]50[167][153]"+2 vs.";
  240. 239 [139]s[178][177]51[175]s[179][178]64[167][153]"+3 vs.";
  241. 240 [139]s[178][177]65[175]s[179][178]72[167][153]"+4 vs.";
  242. 241 [139]s[178][177]73[175]s[179][178]75[167][153]"+5 vs.";
  243. 242 [139]s[178][177]76[175]s[179][178]100[167][153]" + ";:[137]260
  244. 243 [143] *** opponents ***
  245. 244 i[178][181](100[172][187](ti)[170]1)
  246. 245 [139]i[179][178]6[167][153]"peekugs"
  247. 246 [139]i[178][177]7[175]i[179][178]9[167][153]"lenonstructs"
  248. 247 [139]i[178][177]10[175]i[179][178]15[167][153]"str$ragons"
  249. 248 [139]i[178][177]16[175]i[179][178]24[167][153]"valnchanted monsters"
  250. 249 [139]i[178][177]25[175]i[179][178]36[167][153]"chr$iants"
  251. 250 [139]i[178][177]37[175]i[179][178]48[167][153]"(NULL)ycanthropes"
  252. 251 [139]i[178][177]49[175]i[179][178]52[167][153]"(NULL)ther-planar creatures"
  253. 252 [139]i[178][177]53[175]i[179][178]58[167][153]"(NULL)egenerating lenreatures"
  254. 253 [139]i[178][177]59[175]i[179][178]67[167][153]"(NULL)eptiles (and str$inosaurs)"
  255. 254 [139]i[178][177]68[175]i[179][178]70[167][153]"(NULL)pell right$mmune creatures"
  256. 255 [139]i[178][177]71[175]i[179][178]76[167][153]"(NULL)pell (NULL)sers"
  257. 256 [139]i[178][177]77[175]i[179][178]88[167][153]"(NULL)ndead"
  258. 257 [139]i[178][177]89[175]i[179][178]94[167][153]"(NULL)ater-peekreathing lenreatures"
  259. 258 [139]i[178][177]95[175]i[179][178]100[167][153]"(NULL)eapon-(NULL)sing lenreatures"
  260. 259 [137]283
  261. 260 [143] *** talent ***
  262. 261 p[178][181](100[172][187](ti)[170]1)
  263. 262 [139]p[179][178]5[167][153]"peekreathing"
  264. 263 [139]p[178][177]6[175]p[179][178]12[167][153]"lenharming"
  265. 264 [139]p[178][177]13[175]p[179][178]16[167][153]"str$eceiving"
  266. 265 [139]p[178][177]17[175]p[179][178]23[167][153]"str$efending"
  267. 266 [139]p[178][177]24[175]p[179][178]25[167][153]"str$eflector"
  268. 267 [139]p[178][177]26[175]p[179][178]27[167][153]"str$raining"
  269. 268 [139]p[178][177]28[175]p[179][178]32[167][153]"valxtinguishing"
  270. 269 [139]p[178][177]33[175]p[179][178]38[167][153]"ascinding"
  271. 270 [139]p[178][177]39[175]p[179][178]43[167][153]"asclaming"
  272. 271 [139]p[178][177]44[175]p[179][178]46[167][153]"asclying"
  273. 272 [139]p[178][177]47[175]p[179][178]54[167][153]"left$ealing"
  274. 273 [139]p[178][177]55[175]p[179][178]59[167][153]"left$iding"
  275. 274 [139]p[178][177]60[175]p[179][178]65[167][153]"left$olding"
  276. 275 [139]p[178][177]66[175]p[179][178]73[167][153]"(NULL)ightning"
  277. 276 [139]p[178][177]74[175]p[179][178]79[167][153]"(NULL)ilencing"
  278. 277 [139]p[178][177]80[175]p[179][178]81[167][153]"(NULL)licing"
  279. 278 [139]p[178][177]82[175]p[179][178]85[167][153]"(NULL)lowing"
  280. 279 [139]p[178][177]86[175]p[179][178]89[167][153]"(NULL)peeding"
  281. 280 [139]p[178][177]90[175]p[179][178]94[167][153]"(NULL)ranslating"
  282. 281 [139]p[178][177]95[175]p[179][178]99[167][153]"(NULL)atching"
  283. 282 [139]p[178]100[167][153]"(NULL)ishing"
  284. 283 [153]
  285. 284 [161]a$:[139]a$[178]""[167]284
  286. 285 [139]a$[178][199](32)[167]185
  287. 286 [139]a$[178][199](13)[167]1
  288. 287 [139]a$[179][177][199](32)[175]a$[179][177][199](13)[167]284
  289. 288 x[178][181](100[172][187](ti)[170]1):[142]
  290. 289 [153]"load"
  291. 290 [153]"forl(NULL)"[199](34)" treasures1"[199](34)",8,1onononon":[141]291:[144]
  292. 291 [151]198,7:[151]631,13:[151]632,147:[151]633,82:[151]634,117:[151]635,9:[151]636,31:[151]637,13:[142]
  293.